home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / horse boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  50 lines
  1. 5 poke649,0:poke53280,2:poke53281,0
  2. 20 printchr$(14)"[147]"tab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 25 printtab(10)"[221]                   [221]"
  4. 26 printtab(10)"[221]                   [221]"
  5. 30 printtab(10)"[221]    [154][208]lease wait:   [221]"
  6. 40 printtab(10)"[221]      [154][204]oading      [221]"
  7. 50 printtab(10)"[221]                   [221]"
  8. 51 printtab(10)"[221]                   [221]"
  9. 52 printtab(10)"[221]                   [221]"
  10. 53 printtab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  11. 80 print"[155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  12. 90 print"[152]                                    "
  13. 95 print"             [212]he [200]orse              "
  14. 100 print"   by [212]homas [196]. [195]anfield ([195])1989    "
  15. 110 print"     [208]ublished on [204][207][193][196][211][212][193][210] #66      "
  16. 115 print"    [211]ubscriptions 1-800-831-2694    "
  17. 120 print"         [193]ll [210]ights [210]eserved        "
  18. 125 print"                                    "
  19. 130 print"[151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][155]";
  20. 170 fora=0to3:reada$,hb%,lb%
  21. 180 poke214,8:print:printtab(18)a$
  22. 190 sys57812a$,8,0:poke780,0:poke781,lb%:poke782,hb%:sys65493
  23. 200 next
  24. 240 sys40143:poke649,10
  25. 250 poke53280,2:poke53281,0:close15:open15,8,15:close15:ifst=0then280
  26. 260 print"[147]"chr$(14):poke214,7:print:printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  27. 261 printtab(7)"[221]  [155][196]isk drive not ready.  [221]"
  28. 265 printtab(7)"[221] [155][208]ress [210][197][212][213][210][206][146] when ready [221]"
  29. 266 printtab(7)"[221]       [155]to try again.     [221]"
  30. 267 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  31. 270 geta$:ifa$<>chr$(13)then270
  32. 275 goto250
  33. 280 close15:open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  34. 290 ifer%=63then320
  35. 300 print"[147]"chr$(14):poke214,7:print:printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  36. 301 printtab(7)"[221]  [155][201]nsert [204][207][193][196][211][212][193][210] disk  [221]"
  37. 305 printtab(7)"[221]   [155]in drive and press   [221]"
  38. 306 printtab(7)"[221]   [155][210][197][212][213][210][206][146] when ready.   [221]"
  39. 307 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  40. 310 geta$:ifa$<>chr$(13)then310
  41. 315 goto250
  42. 320 poke646,peek(53281):print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  43. 330 print"run"
  44. 340 poke631,13:poke632,13:poke633,13:poke198,3:end
  45. 400 data"[210]anch",37,94
  46. 410 data"[195]orral",64,0
  47. 420 data"[211]table",127,123
  48. 430 data"[200]orse ",192,0
  49. 10000 open15,8,15,"s0:horse boot":close15:save"horse boot",8:end
  50.